home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / c3 / pro24 / moxcprog.h < prev    next >
Text File  |  1986-06-23  |  656b  |  33 lines
  1. /*
  2.  * override the definition of l_rest (from mpu.c):
  3.  */
  4. #define l_rest(d) m_rest(d)
  5. #define l_restuntil(t) m_restuntil(t)
  6.  
  7. #include "\music\musicfns.h"
  8. #define when if (
  9. #define then ) {
  10. #define otherwise ;} else {
  11. #define endif ;}
  12. #define endwhen ;}
  13. #define begin {
  14. #define end ;}
  15.  
  16. #define repeat(var, count) {int var; for (var=1; var <= count; var++) {
  17. #define endrep ;}}
  18.  
  19. extern int moxcdone;
  20. extern cause();
  21. extern long event_time;
  22.  
  23. int moxc_loudness = 127;
  24.  
  25. #define loud(l) moxc_loudness = (l);
  26.  
  27. note(pitch, duration)
  28.     begin
  29.     midi_note(1, pitch, moxc_loudness);
  30.     cause(duration, midi_note, 1, pitch, 0);
  31.     end
  32.  
  33.